home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / PWRITE4.DMS / in.adf / InstallPWrite < prev    next >
Encoding:
Text File  |  1993-07-26  |  6.4 KB  |  271 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. ; Install Script Copyright (C) Cloanto Italia 1993
  6. ; Cloanto, Personal Write, PWrite  (R), (TM) Cloanto Italia
  7. ; All Rights Reserved - Reproduction Prohibited
  8.  
  9. If NOT EXISTS RAM:IPT
  10.   MakeDir RAM:IPT
  11.   EndIf
  12.  
  13. If EXISTS C:Copy
  14.   Copy >NIL: C:Copy RAM:IPT
  15.   EndIf
  16.  
  17. CD RAM:IPT
  18.  
  19. If EXISTS C:If
  20.   Copy >NIL: C:If RAM:IPT
  21.   EndIf
  22. If EXISTS C:EndIf
  23.   Copy >NIL: C:EndIf RAM:IPT
  24.   EndIf
  25. If EXISTS C:Execute
  26.   Copy >NIL: C:Execute RAM:IPT
  27.   EndIf
  28. If EXISTS C:Assign
  29.   Copy >NIL: C:Assign RAM:IPT
  30.   EndIf
  31.  
  32. Assign >NIL: PWrite:
  33. Assign >NIL: PWrite: EXISTS
  34. If WARN
  35.    Assign >NIL: " PWrite:" EXISTS
  36.    If NOT WARN
  37.       Assign PWrite: " PWrite:"
  38.       EndIf
  39.    Assign >NIL: "Copy of PWrite:" EXISTS
  40.    If NOT WARN
  41.       Assign PWrite: "Copy of PWrite:"
  42.       EndIf
  43.    Assign >NIL: Copy_of_PWrite: EXISTS
  44.    If NOT WARN
  45.       Assign PWrite: Copy_of_PWrite:
  46.       EndIf
  47.    EndIf
  48.  
  49. Assign >NIL: PWrite: EXISTS
  50. If WARN
  51.    Echo "Error: InstallPWrite can only be run from *"PWrite*" disk."
  52.    Wait 3 SECS
  53.    Skip End2
  54.    EndIf
  55.  
  56. Copy PWrite:c/Print RAM:IPT
  57.  
  58. If NOT EXISTS PWrite:s/Startup-PWLclTxt
  59.   Print "Disk is not configured: Default configuration in progress."
  60.   Execute PWrite:English
  61.   CD RAM:IPT
  62.   EndIf
  63.  
  64. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclTxt.ita
  65.   Execute PWrite:PW_Locale/PW_InstallSub.ita
  66.   EndIf
  67. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclTxt.deu
  68.   Execute PWrite:PW_Locale/PW_InstallSub.deu
  69.   EndIf
  70. If NOT EXISTS PWrite:PW_Locale/Startup-PWLclTxt.eng
  71.   Execute PWrite:PW_Locale/PW_InstallSub.eng
  72.   EndIf
  73.  
  74. If NOT EXISTS PLT_trlkll
  75.   Print "Error during install."
  76.   Wait 3 SECS
  77.   Skip End2
  78.   EndIf
  79.  
  80. If EXISTS C:CD
  81.   Copy >NIL: C:CD RAM:IPT
  82.   EndIf
  83. If EXISTS C:Else
  84.   Copy >NIL: C:Else RAM:IPT
  85.   EndIf
  86. If EXISTS C:Lab
  87.   Copy >NIL: C:Lab RAM:IPT
  88.   EndIf
  89. If EXISTS C:Skip
  90.   Copy >NIL: C:Skip RAM:IPT
  91.   EndIf
  92. If EXISTS C:Delete
  93.   Copy >NIL: C:Delete RAM:IPT
  94.   EndIf
  95. If EXISTS C:Wait
  96.   Copy >NIL: C:Wait RAM:IPT
  97.   EndIf
  98.  
  99. Copy PWrite:c/AskAssign RAM:IPT
  100. Copy PWrite:c/CAsk RAM:IPT
  101. Copy PWrite:c/CopyIcon RAM:IPT
  102. Copy PWrite:c/ShowPath RAM:IPT
  103.  
  104. Print PLT_title
  105.  
  106. ; PPaint, C1-Text, PFM trademarks of Cloanto Italia
  107. ; DPaintIII, DPaintIV, DeluxePaintV, PPage trademarks of respective owners
  108.  
  109. Assign >NIL: DeluxePaintIII: EXISTS
  110. If NOT WARN
  111.   Assign INTELLASSIGN: DeluxePaintIII:
  112.   EndIf
  113. Assign >NIL: DPaintIV: EXISTS
  114. If NOT WARN
  115.   Assign INTELLASSIGN: DPaintIV:
  116.   EndIf
  117. Assign >NIL: DPaintV: EXISTS
  118. If NOT WARN
  119.   Assign INTELLASSIGN: DPaintV:
  120.   EndIf
  121. Assign >NIL: PPaint: EXISTS
  122. If NOT WARN
  123.   Assign INTELLASSIGN: PPaint:
  124.   EndIf
  125. Assign >NIL: PPage: EXISTS
  126. If NOT WARN
  127.   Assign INTELLASSIGN: PPage:
  128.   EndIf
  129. Assign >NIL: PFM: EXISTS
  130. If NOT WARN
  131.   Assign INTELLASSIGN: PFM:
  132.   EndIf
  133. Assign >NIL: C1-Text: EXISTS
  134. If NOT WARN
  135.   Assign INTELLASSIGN: C1-Text:
  136.   EndIf
  137.  
  138. Assign >NIL: INTELLASSIGN: EXISTS
  139. If NOT WARN
  140.   CD INTELLASSIGN:
  141.   CD >NIL: /
  142.   Assign INTELLASSIGN:
  143. Else
  144.   Assign >NIL: Work: EXISTS
  145.   If NOT WARN
  146.     CD Work:
  147.   Else
  148.     Assign >NIL: DH1: EXISTS
  149.     If NOT WARN
  150.       CD DH1:
  151.     Else
  152.       CD PWrite:
  153.     EndIf
  154.   EndIf
  155. EndIf
  156.  
  157. Execute RAM:IPT/PLC_ipath
  158.  
  159. If NOT WARN
  160.  
  161.  CD RAM:IPT
  162.  
  163.  Print PLT_title
  164.  Print PLT_infbeg
  165.  ShowPath -f IPWRITE:
  166.  Print "*e[33m"
  167.  
  168.  Print PLT_infpwp
  169.  Copy PWrite:PWrite IPWRITE: CLONE
  170.  
  171.  Print PLT_infuit
  172.  Copy >NIL: PWrite:CAWP3_UITX#? IPWRITE: CLONE
  173.  
  174.  Print PLT_infps
  175.  Copy PWrite:PWrite_PS IPWRITE: CLONE
  176.  
  177.  Print PLT_infext
  178.  Copy >NIL: "PWrite:Cloanto Extras" "IPWRITE:Cloanto Extras" ALL CLONE
  179.  
  180.  Print PLT_infman
  181.  Copy PWrite:PWrite.man IPWRITE: CLONE
  182.  
  183.  Print PLT_infaud
  184.  Copy PWrite:CloantoAudio IPWRITE: CLONE
  185.  Copy >NIL: PWrite:CloantoAudio DEVS: CLONE
  186.  
  187.  Print PLT_inficn
  188.  If EXISTS PWrite:PW_Locale/PW_CurrentWB13
  189.    CopyIcon >NIL: -2 -r "PWrite:Cloanto Extras" IPWRITE: 10 11 350 155
  190.    CopyIcon >NIL: -2 -r PWrite:PWrite IPWRITE:PWrite
  191.    CopyIcon >NIL: -2 -r PWrite:CAWP3_UITX.eng IPWRITE:CAWP3_UITX.eng
  192.    CopyIcon >NIL: -2 -r PWrite:CAWP3_UITX.deu IPWRITE:CAWP3_UITX.deu
  193.    CopyIcon >NIL: -2 -r PWrite:CAWP3_UITX.ita IPWRITE:CAWP3_UITX.ita
  194.    CopyIcon >NIL: -2 -r PWrite:PWrite_PS IPWRITE:PWrite_PS
  195.    CopyIcon >NIL: -2 -r "PWrite:Cloanto Extras" "IPWRITE:Cloanto Extras"
  196.    CopyIcon >NIL: -2 -r "PWrite:Cloanto Extras/DemoLetter.txt" "IPWRITE:Cloanto Extras/DemoLetter.txt"
  197.    CopyIcon >NIL: -2 -r "PWrite:Cloanto Extras/DemoLabData.txt" "IPWRITE:Cloanto Extras/DemoLabData.txt"
  198.    CopyIcon >NIL: -2 -r "PWrite:Cloanto Extras/GrabText" "IPWRITE:Cloanto Extras/GrabText"
  199.    CopyIcon >NIL: -2 -r PWrite:PWrite.man IPWRITE:PWrite.man
  200.    CopyIcon >NIL: -2 -r PWrite:CloantoAudio IPWRITE:CloantoAudio
  201.  Else
  202.    CopyIcon >NIL: -1 -r "PWrite:Cloanto Extras" IPWRITE: 10 11 350 155
  203.    CopyIcon >NIL: -1 -r PWrite:PWrite IPWRITE:PWrite
  204.    CopyIcon >NIL: -1 -r PWrite:CAWP3_UITX.eng IPWRITE:CAWP3_UITX.eng
  205.    CopyIcon >NIL: -1 -r PWrite:CAWP3_UITX.deu IPWRITE:CAWP3_UITX.deu
  206.    CopyIcon >NIL: -1 -r PWrite:CAWP3_UITX.ita IPWRITE:CAWP3_UITX.ita
  207.    CopyIcon >NIL: -1 -r PWrite:PWrite_PS IPWRITE:PWrite_PS
  208.    CopyIcon >NIL: -1 -r "PWrite:Cloanto Extras" "IPWRITE:Cloanto Extras"
  209.    CopyIcon >NIL: -1 -r "PWrite:Cloanto Extras/DemoLetter.txt" "IPWRITE:Cloanto Extras/DemoLetter.txt"
  210.    CopyIcon >NIL: -1 -r "PWrite:Cloanto Extras/DemoLabData.txt" "IPWRITE:Cloanto Extras/DemoLabData.txt"
  211.    CopyIcon >NIL: -1 -r "PWrite:Cloanto Extras/GrabText" "IPWRITE:Cloanto Extras/GrabText"
  212.    CopyIcon >NIL: -1 -r PWrite:PWrite.man IPWRITE:PWrite.man
  213.    CopyIcon >NIL: -1 -r PWrite:CloantoAudio IPWRITE:CloantoAudio
  214.  EndIf
  215.  
  216.  Wait 2 SECS
  217.  
  218.  Print PLT_title
  219.  Print N "*e[31;1m"
  220.  Print PLT_infend
  221.  Print "*e[0m*N"
  222.  Print PLT_trladd
  223.  Print N "*N*e[33m          Assign PWrite: "
  224.  ShowPath IPWRITE:
  225.  Print "*e[31m"
  226.  Print PLT_trlfl1
  227.  Print PLT_trlfl2
  228.  
  229.  Assign >NIL: S: EXISTS
  230.  If NOT WARN
  231.    Print ""
  232.    Print PLT_askust
  233.    CAsk -y "*e[31m ?"
  234.    If WARN
  235.      Print >PW_WriteOK ";"
  236.      Copy >NIL: PW_WriteOK S:
  237.      If EXISTS S:PW_WriteOK
  238.        If NOT EXISTS S:user-startup
  239.          Print >S:user-startup "; BEGIN Personal Write"
  240.        Else
  241.          Print >>S:user-startup "; BEGIN Personal Write"
  242.        EndIf
  243.        Print >>S:user-startup N "Assign >NIL: PWRITE: EXISTS*NIf WARN*N  Assign PWRITE: "
  244.        ShowPath >>S:user-startup IPWRITE:
  245.        Print >>S:user-startup "  EndIf"
  246.        Print >>S:user-startup "; END Personal Write"
  247.        Delete >NIL: S:PW_WriteOK
  248.      EndIf
  249.    EndIf
  250.  EndIf
  251.  
  252.  Lab End1
  253.  
  254.  Assign IPWRITE:
  255.  
  256.  Wait 1 SECS
  257.  Print ""
  258.  Print PLT_askend
  259.  CAsk ""
  260.  
  261. Else
  262.  CD RAM:IPT
  263.  Print N "*e[31;1m"
  264.  Print PLT_trlkll
  265.  Wait 3 SECS
  266. EndIf
  267.  
  268. Lab End2
  269. CD RAM:
  270. Delete >NIL: RAM:IPT ALL QUIET
  271.